home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / 041-050 / amok41 / spiele / mastermind / txt / gadget.def < prev    next >
Text File  |  1993-11-04  |  1KB  |  33 lines
  1. (*********************************************************************
  2.  *
  3.  *  :Program.        HilfsModul für Mastermind
  4.  *  :Author.        Hans Schafft
  5.  *  :Address.        Landfriedstraße 1A - Hinterhaus
  6.  *  :Address.        6900 Heidelberg
  7.  *  :Phone.        06221 - 22416
  8.  *  :Version.        1.0
  9.  *  :Date.        1989
  10.  *  :Copyright.        PD
  11.  *  :Language.        Modula-II
  12.  *  :Translator.    M2Amiga
  13.  *
  14.  *********************************************************************)
  15.  
  16. DEFINITION MODULE Gadget;
  17.  
  18. FROM Intuition    IMPORT    WindowPtr;
  19.  
  20. TYPE gadNum = (n,StText,FbText,minusSt,plusSt,minusFb,plusFb,stellen,farben,
  21.         spielen,hilfe,info,best,neu,einaus,ende,ok,f1,f2,f3,f4,f5,f6,
  22.         f7,f8,f9,f10,f11,f12,f13,f14,tip1,tip2,tip3,tip4,tip5,tip6,
  23.         tip7,tip8,tip9,tip10,tip11,tip12,tip13,tip14,tip15,tip16);
  24.         
  25. PROCEDURE FlexGadgetAufbau(stellenAnzahl : INTEGER);
  26. PROCEDURE FestGadgetAufbau(wPtr : WindowPtr);
  27. PROCEDURE StellenUndFarben(VAR stellenAnzahl,farbAnzahl : INTEGER);
  28. PROCEDURE TipFuellen(gadNum : INTEGER;farbReg : CARDINAL);
  29. PROCEDURE Auswerten(fus,ns : INTEGER);
  30. PROCEDURE GadgetsLoeschen;
  31.  
  32. END Gadget.
  33.